home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1997 2 / Power_Disk_64_97-02_1997-09_Lagune_de_Side_B.d64 / flyin' high (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  28KB  |  1,125 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *           fly  high           *
  4. 4 rem *                               *
  5. 5 rem *(w)/(c) in 1997 by  lagune soft*
  6. 6 rem *                               *
  7. 7 rem *the grandmaster is watching you*
  8. 8 rem *                               *
  9. 9 rem *********************************
  10. 10 poke53280,12:poke53281,11:a=50:b=a:f=a:l=a:n=a:w=0:t=8:al=20:y=1977:ge=25
  11. 12 gosub9998:print"1 = [211]tart"
  12. 15 print"2 = [197]instellungen"
  13. 16 gosub9996
  14. 17 ifa$="1"then100
  15. 20 ifa$="2"then50
  16. 21 goto16
  17. 50 rem einstellungen
  18. 51 gosub9998:gosub9800:gosub20000
  19. 52 print"[197]instellungen: ([205]enu = 1)               [183][183][183][183][183][183][183][183][183][183][183][183][183]"
  20. 53 print"[211]taerken der [211]pringer zu [194]eginn:"
  21. 54 print"([193])nfahr(t)      : "a"%"
  22. 55 print"[193](b)sprun(g)     : "b"%"
  23. 56 print"([198])lugphas(e)    : "f"%"
  24. 57 print"([204])and(u)ng      : "l"%"
  25. 58 print"([206])ervenstaer(k)e: "n"%                ([202])a(h)r         : "y+al
  26. 59 print"[212]aste         =   +/-"
  27. 60 print"[212]aste & [211]hift =  +5/-5    (ausser [202]ahr)"
  28. 61 print"[212]aste & [195]=    = +10/-10   (ausser [202]ahr)"
  29. 62 gosub9996
  30. 63 ifa$="a"thena=a+1
  31. 64 ifa$="t"thena=a-1
  32. 65 ifa$="[193]"thena=a+5
  33. 66 ifa$="[212]"thena=a-5
  34. 67 ifa$="[176]"thena=a+10
  35. 68 ifa$="[163]"thena=a-10
  36. 69 ifa$="b"thenb=b+1
  37. 70 ifa$="g"thenb=b-1
  38. 71 ifa$="[194]"thenb=b+5
  39. 72 ifa$="[199]"thenb=b-5
  40. 73 ifa$="[191]"thenb=b+10
  41. 74 ifa$="[165]"thenb=b-10
  42. 75 ifa$="f"thenf=f+1
  43. 76 ifa$="e"thenf=f-1
  44. 77 ifa$="[198]"thenf=f+5
  45. 78 ifa$="[197]"thenf=f-5
  46. 79 ifa$="[187]"thenf=f+10
  47. 80 ifa$="[177]"thenf=f-10
  48. 81 ifa$="l"thenl=l+1
  49. 82 ifa$="u"thenl=l-1
  50. 83 ifa$="[204]"thenl=l+5
  51. 84 ifa$="[213]"thenl=l-5
  52. 85 ifa$="[182]"thenl=l+10
  53. 86 ifa$="[184]"thenl=l-10
  54. 87 ifa$="n"thenn=n+1
  55. 88 ifa$="k"thenn=n-1
  56. 89 ifa$="[206]"thenn=n+5
  57. 90 ifa$="[203]"thenn=n-5
  58. 91 ifa$="[170]"thenn=n+10
  59. 92 ifa$="[161]"thenn=n-10
  60. 93 ifa$="1"then12
  61. 94 ifa$="j"theny=y+1
  62. 95 ifa$="h"theny=y-1
  63. 99 goto50
  64. 100 rem one-player-mode
  65. 101 gosub9800:gosub10000:gosub11000
  66. 102 z=0:gosub9998:print"[206]ationenwahl:                           [183][183][183][183][183][183][183][183][183][183][183][183]"
  67. 103 print"[193] = [196]eutschland                         [194] = [198]innland"
  68. 104 print"[195] = [206]orwegen                            [196] = [207]esterreich"
  69. 105 print"[197] = [202]apan                               [198] = [211]lowenien"
  70. 106 print"[199] = [211]chweiz                             [200] = [212]schechei"
  71. 107 print"[201] = [208]olen"
  72. 108 print"[202] = [210]ussland                            [203] = [198]rankreich"
  73. 109 print"[204] = [211]chweden                            [205] = [201]talien"
  74. 110 print"[206] = [213].[211].[193]."
  75. 111 gosub9996
  76. 112 ifa$="a"thenn$="[199]ermany"
  77. 113 ifa$="b"thenn$="[198]inland"
  78. 114 ifa$="c"thenn$="[206]orway"andn3$="[204]agune"
  79. 115 ifa$="d"thenn$="[193]ustria"
  80. 116 ifa$="e"thenn$="[202]apan"
  81. 117 ifa$="f"thenn$="[211]lowenia"andn3$="[204]agune"
  82. 118 ifa$="g"thenn$="[211]uisse"andn3$="[204]agune"
  83. 119 ifa$="h"thenn$="[212]schechy"andn3$="[204]agune"
  84. 121 ifa$="i"thenn$="[208]oland"andn3$="[204]agune"
  85. 122 ifa$="j"thenn$="[210]ussia"andn3$="[204]agune"
  86. 123 ifa$="k"thenn$="[198]rance"andn3$="[204]agune"
  87. 124 ifa$="l"thenn$="[211]weden"andn3$="[204]agune"
  88. 125 ifa$="m"thenn$="[201]taly"andn3$="[204]agune"
  89. 126 ifa$="n"thenn$="[213][211][193]"andn3$="[204]agune"
  90. 128 print"[199]ewaehlte [206]ation: "n$
  91. 129 print"[203]orrekt ([202]/[206]) ?"
  92. 130 gosub9996
  93. 131 ifa$="j"then140
  94. 132 ifa$="n"then102
  95. 133 goto130
  96. 140 gosub9998
  97. 141 input"[214]orname ";vn$
  98. 142 input"[206]achname ";nn$
  99. 143 print"[194]eginn der ersten [211]aison ..."
  100. 144 gosub9996
  101. 150 ift=8thengosub20000
  102. 151 ift=8thenw=w+1:ift=8thenui=0:ift=8thent=1:rem hauptmenu
  103. 152 ifw=17thengosub12000
  104. 153 ift=6then1000
  105. 154 gosub9998:ta=0:tb=0:print"[200]auptmenu:                              [183][183][183][183][183][183][183][183][183]"
  106. 155 printvn$" "nn$:print"[206]ation: "n$:print"[215]oche :"w:print"[212]ag   :"t:print"[193]lter :"al:print"[202]ahr  :"y+al
  107. 156 print"1 = [212]raining                            2 = [197]reignisse":ift=7then7005
  108. 157 print"3 = [213]eberblick":ifxa=2andt=7then1070
  109. 158 print"4 = [206]aechste [215]oche                      5 = [197][206][196][197]":rc$="":xa=0:rf$="":re$=""
  110. 159 input"[215]as nun ";x
  111. 160 ifx<1orx>5then154
  112. 161 ifx=1then300
  113. 162 ifx=2then700
  114. 163 ifx=3then200
  115. 165 ifx=4then600
  116. 166 ifx=5then650
  117. 200 rem ueberblick
  118. 201 gosub9998
  119. 202 print"[213]eberblick:                             [183][183][183][183][183][183][183][183][183][183]"
  120. 203 print"1 = [210]angliste                           2 = [215]ettkaempfe"
  121. 204 print"3 = [215]ochenplanung                       4 = [211]tatistik"
  122. 205 print"5 = [200]auptmenu"
  123. 206 input"[215]as nun";x
  124. 207 ifx<1orx>5then200
  125. 208 ifx=1then2000
  126. 209 ifx=2then220
  127. 210 ifx=3then500
  128. 211 ifx=4then900
  129. 212 ifx=5then154
  130. 220 rem wettkaempfe
  131. 221 gosub9998
  132. 222 print"[215]oche                [215]ettkampf          "
  133. 223 gosub9920
  134. 224 print"  1                  2 normale [211]pringen"
  135. 225 print"  2                  2 normale [211]pringen"
  136. 226 print"  3                  2 normale [211]pringen"
  137. 227 print"  4                  2 [212]ournee-[211]pringen"
  138. 228 print"  5                  2 [212]ournee-[211]pringen"
  139. 229 print"  6                  2 normale [211]pringen"
  140. 230 print"  7                  2 normale [211]pringen"
  141. 231 print"  8                  2 normale [211]pringen"
  142. 232 print"  9                  2 [211]ki-[198]liegen"
  143. 233 print" 10                  2 normale [211]pringen"
  144. 234 print" 11                  frei"
  145. 235 print" 12                  [215][205]-[203]leinschanze"
  146. 236 print" 13                  [215][205]-[199]rossschanze"
  147. 238 print" 14                  2 normale [211]pringen"
  148. 239 print" 15                  2 normale [211]pringen"
  149. 240 print" 16                  2 [211]ki-[198]liegen"
  150. 248 gosub9996
  151. 249 goto200
  152. 300 rem training
  153. 301 gosub9998
  154. 302 print"[212]raining:                               [183][183][183][183][183][183][183][183]"
  155. 303 print"1 = [193]nfahrt                             2 = [193]bsprung"
  156. 304 print"3 = [198]lugphase                           4 = [204]andung"
  157. 305 print"5 = [200]auptmenu"
  158. 306 input"[215]as nun";x
  159. 307 ifx<1orx>5then300
  160. 308 ifx=1then320
  161. 309 ifx=2then360
  162. 310 ifx=3then400
  163. 311 ifx=4then440
  164. 312 ifx=5then154
  165. 320 gosub9998
  166. 321 print"[193]nfahrt:                                [183][183][183][183][183][183][183]"
  167. 322 print"[204]eistung:"a"%
  168. 323 [153]"(NULL)rainieren (mid$/(NULL)) ?"
  169. 324 [141]9996
  170. 325 [139]a$[178]"j"[167]330
  171. 326 [139]a$[178]"n"[167]300
  172. 327 [137]324
  173. 330 ug[178]1:og[178]5:[141]9990
  174. 331 a1[178]z2
  175. 332 ug[178]1:og[178]7:[141]9990
  176. 333 [139]z2[178]1[167]350
  177. 334 [139]z2[178]2[167]350
  178. 335 [139]z2[178]3[167]340
  179. 336 [139]z2[178]4[167]340
  180. 337 [139]z2[178]5[167]340
  181. 338 [139]z2[178]6[167]340
  182. 339 [139]z2[178]7[167]350
  183. 340 a[178]a[170]a1:[139]a[177]100[167]a[178]100
  184. 341 [153]"str$as (NULL)raining lief gut."
  185. 342 [153]"(NULL)eue (NULL)eistung:"a"%
  186. 343 t=t+1
  187. 344 gosub9996
  188. 345 goto150
  189. 350 a=a-a1:ifa<0thena=0
  190. 351 print"[196]as [212]raining lief mies."
  191. 352 print"[206]eue [204]eistung:"a"%
  192. 353 t[178]t[170]1
  193. 354 [141]9996
  194. 355 [137]150
  195. 360 [141]9998
  196. 361 [153]"atnbsprung:                               usrusrusrusrusrusrusrusr"
  197. 362 [153]"(NULL)eistung:"b"%
  198. 363 print"[212]rainieren ([202]/[206]) ?"
  199. 364 gosub9996
  200. 365 ifa$="j"then370
  201. 366 ifa$="n"then300
  202. 367 goto364
  203. 370 ug=1:og=5:gosub9990
  204. 371 b1=z2
  205. 372 ug=1:og=7:gosub9990
  206. 373 ifz2=1then390
  207. 374 ifz2=2then390
  208. 375 ifz2=3then380
  209. 376 ifz2=4then380
  210. 377 ifz2=5then380
  211. 378 ifz2=6then380
  212. 379 ifz2=7then390
  213. 380 b=b+b1:ifb>100thenb=100
  214. 381 print"[196]as [212]raining lief gut."
  215. 382 print"[206]eue [204]eistung:"b"%
  216. 383 t[178]t[170]1
  217. 384 [141]9996
  218. 385 [137]150
  219. 390 b[178]b[171]b1:[139]b[179]0[167]b[178]0
  220. 391 [153]"str$as (NULL)raining lief mies."
  221. 392 [153]"(NULL)eue (NULL)eistung:"b"%
  222. 393 t=t+1
  223. 394 gosub9996
  224. 395 goto150
  225. 400 gosub9998
  226. 401 print"[198]lugphase:                              [183][183][183][183][183][183][183][183][183]"
  227. 402 print"[204]eistung:"f"%
  228. 403 [153]"(NULL)rainieren (mid$/(NULL)) ?"
  229. 404 [141]9996
  230. 405 [139]a$[178]"j"[167]410
  231. 406 [139]a$[178]"n"[167]300
  232. 407 [137]404
  233. 410 ug[178]1:og[178]5:[141]9990
  234. 411 f1[178]z2
  235. 412 ug[178]1:og[178]7:[141]9990
  236. 413 [139]z2[178]1[167]430
  237. 414 [139]z2[178]2[167]430
  238. 415 [139]z2[178]3[167]420
  239. 416 [139]z2[178]4[167]420
  240. 417 [139]z2[178]5[167]420
  241. 418 [139]z2[178]6[167]420
  242. 419 [139]z2[178]7[167]430
  243. 420 f[178]f[170]f1:[139]f[177]100[167]f[178]100
  244. 421 [153]"str$as (NULL)raining lief gut."
  245. 422 [153]"(NULL)eue (NULL)eistung:"f"%
  246. 423 t=t+1
  247. 424 gosub9996
  248. 425 goto150
  249. 430 f=f-f1:iff<0thenf=0
  250. 431 print"[196]as [212]raining lief mies."
  251. 432 print"[206]eue [204]eistung:"f"%
  252. 433 t[178]t[170]1
  253. 434 [141]9996
  254. 435 [137]150
  255. 440 [141]9998
  256. 441 [153]"(NULL)andung:                                usrusrusrusrusrusrusr"
  257. 442 [153]"(NULL)eistung:"l"%
  258. 443 print"[212]rainieren ([202]/[206]) ?"
  259. 444 gosub9996
  260. 445 ifa$="j"then450
  261. 446 ifa$="n"then300
  262. 447 goto444
  263. 450 ug=1:og=5:gosub9990
  264. 451 l1=z2
  265. 452 ug=1:og=7:gosub9990
  266. 453 ifz2=1then470
  267. 454 ifz2=2then470
  268. 455 ifz2=3then460
  269. 456 ifz2=4then460
  270. 457 ifz2=5then460
  271. 458 ifz2=6then460
  272. 459 ifz2=7then470
  273. 460 l=l+l1:ifl>100thenl=100
  274. 461 print"[196]as [212]raining lief gut."
  275. 462 print"[206]eue [204]eistung:"l"%
  276. 463 t[178]t[170]1
  277. 464 [141]9996
  278. 465 [137]150
  279. 470 l[178]l[171]l1:[139]l[179]0[167]l[178]0
  280. 471 [153]"str$as (NULL)raining lief mies."
  281. 472 [153]"(NULL)eue (NULL)eistung:"l"%
  282. 473 t=t+1
  283. 474 gosub9996
  284. 475 goto150
  285. 500 rem wochenplanung
  286. 501 gosub9998
  287. 502 print"[215]ochenplanung:                          [183][183][183][183][183][183][183][183][183][183][183][183][183]"
  288. 503 print"1 = [193]ktuelle [208]lanung                    2 = [206]eue [208]lanung"
  289. 504 print"3 = [200]auptmenu"
  290. 505 input"[215]as nun ";x
  291. 506 ifx<1orx>3then500
  292. 507 ifx=1then540
  293. 508 ifx=2then520
  294. 509 ifx=3then154
  295. 515 print"[196]ies [215]oche ist nicht verplanungs-       moeglich !"
  296. 516 gosub9996
  297. 517 goto520
  298. 520 gosub9998
  299. 521 print"[206]eue [208]lanung:                           [183][183][183][183][183][183][183][183][183][183][183][183]"
  300. 522 input"[215]elche [215]oche neu planen";x
  301. 523 ifx<1orx>16then520
  302. 524 ifx>10andx<14then515
  303. 525 print"[212]raining oder [215]ettkampf ([212]/[215]) ?"
  304. 526 gosub9996
  305. 527 ifa$="t"then530
  306. 528 ifa$="w"then535
  307. 529 goto526
  308. 530 ifx>10then533
  309. 531 v=x:e$(v)="[212]raining"
  310. 532 goto500
  311. 533 v=x-10:f$(v)="[212]raining"
  312. 534 goto500
  313. 535 ifx>10then538
  314. 536 v=x:e$(v)="[215]ettkampf"
  315. 537 goto500
  316. 538 v=x-10:f$(v)="[215]ettkampf"
  317. 539 goto500
  318. 540 gosub9998
  319. 541 print"[193]ktuelle [208]lanung:                       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  320. 542 print"[215]oche                          [208]lanung  "
  321. 543 gosub9920
  322. 544 print"1                             "e$(1)
  323. 545 print"2                             "e$(2)
  324. 546 print"3                             "e$(3)
  325. 547 print"4                             "e$(4)
  326. 548 print"5                             "e$(5)
  327. 549 print"6                             "e$(6)
  328. 550 print"7                             "e$(7)
  329. 551 print"8                             "e$(8)
  330. 552 print"9                             "e$(9)
  331. 553 print"10                            "e$(10)
  332. 554 print"11                             frei"
  333. 555 print"12                      [215][205]-[203]leinschanze"
  334. 556 print"13                      [215][205]-[199]rossschanze"
  335. 557 print"14                            "f$(4)
  336. 558 print"15                            "f$(5)
  337. 559 print"16                            "f$(6)
  338. 560 gosub9996
  339. 561 goto500
  340. 600 rem naechste woche
  341. 601 t=6:xa=2:goto1070
  342. 650 rem ende
  343. 651 gosub9998
  344. 652 print"[197]cht ([202]/[206]) ?????????"
  345. 653 gosub9996
  346. 654 ifa$="n"then152
  347. 655 sys64738
  348. 700 rem ereignisse
  349. 701 ug=1:og=7:gosub9990
  350. 702 ifz2=1then710
  351. 703 ifz2=2then720
  352. 704 ifz2=3then730
  353. 705 ifz2=4then740
  354. 706 ifz2=5then750
  355. 707 ifz2=6or7then761
  356. 710 gosub9998:print"[193]nfahrt-[212]raining:                       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  357. 711 ug=1:og=3:gosub9990
  358. 712 ifz2=1then717
  359. 713 print"[196]ein [212]rainer meint,du solltest oefter im[211]tehen scheissen.[214]ielleicht wuerde"
  360. 714 print"sich dann endlich mal deine [193]nfahrt ver-bessern ! ([193]nfahrt = -5 %)"
  361. 715 a=a-5:t=t+1:ifa<0thena=0
  362. 716 gosub9996:goto150
  363. 717 print"[212]op-elegant gleitest du den [193]blauf      hinunter ! [196]ein [212]rainer freut sich"
  364. 718 print"ueber 5 % [214]erbesserung !":a=a+5:ifa>100thena=100
  365. 719 t=t+1:gosub9996:goto150
  366. 720 gosub9998:print"[193]bsprung-[212]raining:                      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  367. 721 ug=1:og=3:gosub9990:ifz2=1then726
  368. 722 print"[203]opfschuettelnd meint dein [212]rainer,dass du einfach nicht aus dem [193]rsch"
  369. 723 print"kommst.[196]ein [193]bsprung verschlechtert sichum horrende 5 % !"
  370. 724 b=b-5:ifb<0thenb=0
  371. 725 t=t+1:gosub9996:goto150
  372. 726 print"[215]ie ein [198]rosch hebst du vom [211]chanzen-   tisch ab ! [196]u siehst die 5%ige"
  373. 727 print"[214]erbesserung genau so gerne,wie dein    [212]rainer !":b=b+5:t=t+1
  374. 728 ifb>100thenb=100
  375. 729 gosub9996:goto150
  376. 730 gosub9998:print"[198]lugphasen-[212]raining:                    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  377. 731 ug=1:og=3:gosub9990
  378. 732 ifz2=1then737
  379. 733 print"[197]in [211]tein faellt vom [194]oden ... ([198]lug-   phase = -5 %)"
  380. 735 f=f-5:iff<0thenf=0
  381. 736 t=t+1:gosub9996:goto150
  382. 737 print"[196]ort am [200]immel - ein [213][198][207] ? [197]in [211]uperman?[206]ein,es ist "vn$" "nn$" !"
  383. 738 print"([198]lugphase = +5 %)":f=f+5:t=t+1:iff>100thenf=100
  384. 739 gosub9996:goto150
  385. 740 gosub9998:print"[204]andungs-[212]raining:                      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  386. 741 ug=1:og=3:gosub9990
  387. 742 ifz2=1then746
  388. 743 print"[211]platsch !!! ([204]andung = -5 %)"
  389. 744 l=l-5:ifl<0thenl=0
  390. 745 t=t+1:gosub9996:goto150
  391. 746 print"[199]razioes wie ein [215]eissflog,[198]inne,[202]apaneroder was es sonst noch gibt - dein"
  392. 747 print"[212]rainer ist stark begeistert !          ([204]andung = +5 %)":l=l+5:t=t+1
  393. 748 ifl>100thenl=100
  394. 749 gosub9996:goto150
  395. 750 gosub9998:print"([206]ervende) [197]rfahrung:                   [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  396. 751 ug=1:og=3:gosub9990:ifz2=1then756
  397. 752 print"[193]ls du heute beim [212]raining ganz oben    standest,bekamst du ploetzlich"
  398. 753 print"einen [193]nfall panischer [200]oehenangst.[196]ein [212]rainer sieht dies fuer deine [211]ki-"
  399. 754 print"[211]prung-[203]arriere nicht gerade positiv.":n=n-5:ifn<0thenn=0
  400. 755 t=t+1:gosub9996:goto150
  401. 756 print"[215]ie du beim heutigen [212]raining von einer [215]indboee erfasst wurdest und fast"
  402. 757 print"ganz,ganz schlimm gestuerzt waerst,hast du blitzschnell reagiert und den"
  403. 758 print"[211]turz wunderbar abgefangen.[196]ein [212]rainer meint,dies zeigte deine [203]lasse !"
  404. 759 n=n+5:t=t+1:ifn>100thenn=100
  405. 760 gosub9996:goto150
  406. 761 gosub9998:print"[197]inschnitt der [203]arriere:                [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  407. 762 ug=1:og=3:gosub9990:ifz2=1then766
  408. 763 print"[196]er heutige schwere [211]turz beendete deine[211]aison vorzeitig.[196]ie schwere [214]er-"
  409. 764 print"letzung duerfte auch dein [203]arriereende  naeher gebracht haben !"
  410. 765 goto800
  411. 766 print"[198]risch wie nie fuehlst du dich derzeit. [196]ein [203]arriereende soll noch ein"
  412. 767 print"bisschen laenger als geplant warten !":ge=ge+1:ifge>30thenge=30
  413. 768 t=t+1:gosub9996:goto150
  414. 800 t=8:w=16:ge=ge-1
  415. 801 ug=1:og=10:gosub9990:ifwm$(al-19)<>""then803
  416. 802 wm$(al-19)=v1$(z2):w8$(al-19)=n1$(z2):w9$(al-19)=m1$(z2)
  417. 820 ug=1:og=10:gosub9990:ifmw$(al-19)<>""then822
  418. 821 mw$(al-19)=v2$(z2):m8$(al-19)=n2$(z2):m9$(al-19)=m2$(z2)
  419. 822 ug=1:og=9:gosub9990:ifot$(al-19)<>""then824
  420. 823 ot$(al-19)=vn$(z2):t8$(al-19)=nn$(z2):t9$(al-19)=mm$(z2)
  421. 824 ug=1:og=9:gosub9990:iffw$(al-19)<>""then826
  422. 825 fw$(al-19)=vn$(z2):f8$(al-19)=nn$(z2):f9$(al-19)=mm$(z2)
  423. 826 re$="[202]":gosub1370:gosub9996:goto150
  424. 900 ab=-4:rem statistik
  425. 901 ab=ab+5:gosub9998:gosub9910
  426. 902 print"[212]ournee-[211]ieger:                         [183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  427. 903 forz=abtoal-19
  428. 904 printy+z+19" : "ot$(z)" "t8$(z)
  429. 905 print"[206]ation : "t9$(z)"
  430. 906 [139]z[178]ab[170]4[167]909
  431. 907 [130]z
  432. 908 [141]9996:[137]910
  433. 909 [141]9996:[137]901
  434. 910 ab[178][171]4
  435. 911 ab[178]ab[170]5:[141]9998:[141]9910
  436. 912 [153]"asclug-(NULL)ieger:                            usrusrusrusrusrusrusrusrusrusrusr"
  437. 913 [129]z[178]ab[164]al[171]19
  438. 914 [153]y[170]z[170]19" : "fw$(z)" "f8$(z)
  439. 915 [153]"(NULL)ation : "f9$(z)"
  440. 916 ifz=ab+4then919
  441. 917 nextz
  442. 918 gosub9996:goto920
  443. 919 gosub9996:goto911
  444. 920 ab=-4
  445. 921 ab=ab+5:gosub9998:gosub9910
  446. 922 print"[215]eltmeister-[203]leinschanze:               [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  447. 923 forz=abtoal-19
  448. 924 printy+z+19" : "wm$(z)" "w8$(z)
  449. 925 print"[206]ation : "w9$(z)"
  450. 926 [139]z[178]ab[170]4[167]929
  451. 927 [130]z
  452. 928 [141]9996:[137]940
  453. 929 [141]9996:[137]921
  454. 940 ab[178][171]4
  455. 941 ab[178]ab[170]5:[141]9998:[141]9910
  456. 942 [153]"(NULL)eltmeister-chr$rossschanze:               usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  457. 943 [129]z[178]ab[164]al[171]19
  458. 944 [153]y[170]z[170]19" : "mw$(z)" "m8$(z)
  459. 945 [153]"(NULL)ation : "m9$(z)"
  460. 946 ifz=ab+4then949
  461. 947 nextz
  462. 948 gosub9996:goto950
  463. 949 gosub9996:goto941
  464. 950 goto200
  465. 1000 rem tag 6
  466. 1001 ifw>10then1010
  467. 1002 ife$(w)="[212]raining"then1070
  468. 1003 ife$(w)="[215]ettkampf"then1050
  469. 1010 x=w-10
  470. 1011 iff$(x)="[212]raining"then1070
  471. 1012 iff$(x)="[215]ettkampf"then1050
  472. 1013 iff$(x)="[215][205]"then3000
  473. 1050 v$="":rem differenzierung
  474. 1053 ifw=9then1080
  475. 1054 ifw=16then1080
  476. 1055 goto1100
  477. 1070 ifw=11then1072
  478. 1071 rc$="c":rf$="[202]":gosub9800:goto1050
  479. 1072 ui=2:goto154
  480. 1080 rem fliegen
  481. 1081 v$="[202]"
  482. 1082 goto1100
  483. 1100 rem wettkampf
  484. 1101 x1=0:x2=0:x3=0:s1=9999:s2=9999:s3=9999:ra$="":rd$="":ifrc$="c"then1103
  485. 1102 gosub9998:print"[209]ualifikation 1.[212]ag:                    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  486. 1103 forz=1to29:ifz>10then1123
  487. 1104 ug=1:og=2:gosub9990
  488. 1105 we(z)=a(z)+2*b(z)+2*f(z)+l(z)+n(z)
  489. 1106 we(z)=we(z)/7
  490. 1107 we(z)=we(z)*z1:ifv$="[202]"thenwe(z)=we(z)+50:ifra$="wm"thenwe(z)=we(z)-20
  491. 1108 ifra$="w[205]"thenwe(z)=we(z)+20:ug=0.1:og=1:gosub9990
  492. 1109 h(z)=2*f(z)+l(z)
  493. 1110 h(z)=h(z)/15
  494. 1111 h(z)=h(z)*z1
  495. 1112 p1=we(z)+h(z)
  496. 1113 p(z)=int(p1):ifdn$(z)="ok"thenreturn
  497. 1114 nextz
  498. 1123 v=z-10:ifz>20then1143
  499. 1124 ug=1:og=2:gosub9990
  500. 1125 w2(v)=a2(v)+2*b2(v)+2*f2(v)+l2(v)+n2(v)
  501. 1126 w2(v)=w2(v)/7
  502. 1127 w2(v)=w2(v)*z1:ifv$="[202]"thenw2(v)=w2(v)+50:ifra$="wm"thenw2(v)=w2(v)-20
  503. 1128 ifra$="w[205]"thenw2(v)=w2(v)+20:ug=0.1:og=1:gosub9990
  504. 1129 h2(v)=2*f2(v)+l2(v)
  505. 1130 h2(v)=h2(v)/15
  506. 1131 h2(v)=h2(v)*z1
  507. 1132 p1=w2(v)+h2(v)
  508. 1133 p2(v)=int(p1):ifd2$(v)="ok"thenreturn
  509. 1134 nextz
  510. 1143 x=z-20
  511. 1144 ug=1:og=2:gosub9990
  512. 1145 w3(x)=a3(x)+2*b3(x)+2*f3(x)+l3(x)+n3(x)
  513. 1146 w3(x)=w3(x)/7
  514. 1147 w3(x)=w3(x)*z1:ifv$="[202]"thenw3(x)=w3(x)+50:ifra$="wm"thenw3(x)=w3(x)-20
  515. 1148 ifra$="w[205]"thenw3(x)=w3(x)+20:ug=0.1:og=1:gosub9990
  516. 1149 h3(x)=2*f3(x)+l3(x)
  517. 1150 h3(x)=h3(x)/15
  518. 1151 h3(x)=h3(x)*z1
  519. 1152 p1=w3(x)+h3(x)
  520. 1153 p3(x)=int(p1):ifd3$(x)="ok"thenreturn
  521. 1154 nextz
  522. 1163 ifrc$="c"then7000
  523. 1164 ug=1:og=2:gosub9990
  524. 1165 w4=a+2*b+2*f+l+n
  525. 1166 w4=w4/7
  526. 1167 w4=w4*z1:ifv$="[202]"thenw4=w4+50:ifra$="wm"thenw4=w4-20
  527. 1168 ifra$="w[205]"thenw4=w4+20:ug=0.1:og=1:gosub9990
  528. 1169 h4=2*f+l
  529. 1170 h4=h4/15
  530. 1171 h4=h4*z1
  531. 1172 p1=w4+h4
  532. 1173 p4=int(p1):ifdn$="ok"thenreturn
  533. 1180 ifx1=1then1190:rem sortierung
  534. 1181 z=0
  535. 1182 z=z+1
  536. 1183 fors=z+1to10
  537. 1184 ifp(z)<p(s)then1187
  538. 1185 nexts
  539. 1186 s1=p(z):s1$=v1$(z):l1$=n1$(z):w1=we(z):ma$=m1$(z):goto1190
  540. 1187 ifz<>9then1182
  541. 1188 s1$=v1$(10):l1$=n1$(10):s1=p(10):w1=we(10):ma$=m1$(10):z=10
  542. 1190 ifx2=1then1200
  543. 1191 r=0
  544. 1192 r=r+1
  545. 1193 fors=r+1to10
  546. 1194 ifp2(r)<p2(s)then1197
  547. 1195 nexts
  548. 1196 s2=p2(r):s2$=v2$(r):l2$=n2$(r):w2=w2(r):mb$=m2$(r):goto1200
  549. 1197 ifr<>9then1192
  550. 1198 s2$=v2$(10):l2$=n2$(10):s2=p2(10):w2=w2(10):mb$=m2$(10):r=10
  551. 1200 ifx3=1then1209
  552. 1201 k=0
  553. 1202 k=k+1
  554. 1203 fors=k+1to9
  555. 1204 ifp3(k)<p3(s)then1207
  556. 1205 nexts
  557. 1206 s3=p3(k):s3$=vn$(k):l3$=nn$(k):w3=w3(k):mc$=mm$(k):goto1209
  558. 1207 ifk<>8then1202
  559. 1208 s3$=vn$(9):l3$=nn$(9):s3=p3(9):w3=w3(9):mc$=mm$(9):k=9
  560. 1209 x1=1:x2=1:x3=1
  561. 1210 ifs1>s2then1212
  562. 1211 ifs2>s3then1214
  563. 1212 ifs1>s3then1215
  564. 1213 ifs3>p4then1230
  565. 1214 ifs2>p4then1225
  566. 1215 ifs1>p4then1220
  567. 1216 ifwe$="ok"then1300
  568. 1217 c=c+1:s(c)=p4:s$(c)=vn$:l$(c)=nn$:w1(c)=w4:ifrb$="[202]"thenap=ap+(11-c)
  569. 1218 p4=-c:dn$="ok":m$(c)=n$:ifc=10then1249
  570. 1219 goto1210
  571. 1220 ifwe$="ok"then1305
  572. 1221 c=c+1:s(c)=s1:s$(c)=s1$:l$(c)=l1$:w1(c)=w1:m$(c)=ma$
  573. 1222 dn$(z)="ok":p(z)=-c:ifrb$="[202]"thena4(z)=a4(z)+(11-c)
  574. 1223 ifc=10then1249
  575. 1224 x1=0:goto1180
  576. 1225 ifwe$="ok"then1310
  577. 1226 c=c+1:s(c)=s2:s$(c)=s2$:l$(c)=l2$:w1(c)=w2:m$(c)=mb$
  578. 1227 d2$(r)="ok":p2(r)=-c:ifrb$="[202]"thena5(z)=a5(z)+(11-c)
  579. 1228 ifc=10then1249
  580. 1229 x2=0:goto1180
  581. 1230 ifwe$="ok"then1315
  582. 1231 c=c+1:s(c)=s3:s$(c)=s3$:l$(c)=l3$:w1(c)=w3:m$(c)=mc$
  583. 1232 d3$(k)="ok":p3(k)=-c:ifrb$="[202]"thena6(z)=a6(z)+(11-c)
  584. 1233 ifc=10then1249
  585. 1234 x3=0:goto1180
  586. 1249 ifrc$="c"then5000
  587. 1250 ifra$="[202]"then2070:rem ergebnisse
  588. 1251 print"[211]pringer/[206]ation             [215]eite/[208]unkte":we$="ok":c=0
  589. 1252 gosub9920:ws=ws+1
  590. 1253 forz=1to10
  591. 1254 printz:print"[145]."left$(s$(z),1)"."l$(z)" ("left$(m$(z),3)")
  592. 1255 [153]"on"[181](w1(z))
  593. 1256 [153]"onm /"s(z)
  594. 1257 [130]z
  595. 1258 [141]9996
  596. 1259 [141]9700
  597. 1260 x1[178]0:x2[178]0:x3[178]0:[139]dn$[178]"ok"[167]n[178]n[170]2:[143] durchgaenge
  598. 1261 [129]z[178]1[164]10
  599. 1262 [139]dn$(z)[178]"ok"[167][141]1104
  600. 1263 [139]ws[178]2[167]p(z)[178]p(z)[170]p4(z)
  601. 1264 [130]z
  602. 1271 [129]v[178]1[164]10
  603. 1272 [139]d2$(v)[178]"ok"[167][141]1124
  604. 1273 [139]ws[178]2[167]p2(v)[178]p2(v)[170]p6(v)
  605. 1274 [130]v
  606. 1281 [129]x[178]1[164]9
  607. 1282 [139]d3$(x)[178]"ok"[167][141]1144
  608. 1283 [139]ws[178]2[167]p3(x)[178]p3(x)[170]p7(x)
  609. 1284 [130]x
  610. 1285 [139]dn$[178]"ok"[167][141]1164
  611. 1286 [139]ws[178]2[167]p4[178]p4[170]p8
  612. 1287 [139]dn$[179][177]"ok"[175]rf$[179][177]"mid$"[167]n[178]n[171]2
  613. 1288 [139]n[177]100[167]n[178]100
  614. 1289 [139]n[179]0[167]n[178]0
  615. 1290 [137]1180
  616. 1300 c[178]c[170]1:[139]w[178]4[176]w[178]5[167]tp[178]tp[170]p4:[143] wertungsgaenge
  617. 1301 [139]ws[178]2[167]n[178]n[170](6[171]c):[139]v$[178]"mid$"[167]fp[178]fp[170](11[171]c)
  618. 1302 s(c)[178]p4:s$(c)[178]vn$:l$(c)[178]nn$:w1(c)[178]w4:p8[178]p4:p4[178]0:[139]ws[178]2[167]ap[178]ap[170](11[171]c)
  619. 1303 m$(c)[178]n$:[139]c[178]10[167]1350
  620. 1304 [137]1210
  621. 1305 c[178]c[170]1:s(c)[178]s1:s$(c)[178]s1$:l$(c)[178]l1$:w1(c)[178]w1:p4(z)[178]s1:p(z)[178]0:m$(c)[178]ma$
  622. 1306 [139]w[178]4[176]w[178]5[167]t1(z)[178]t1(z)[170]s1:[139]v$[178]"mid$"[167]f4(z)[178]f4(z)[170](11[171]c)
  623. 1307 [139]ws[178]2[167]a4(z)[178]a4(z)[170](11[171]c)
  624. 1308 [139]c[178]10[167]1350
  625. 1309 x1[178]0:[137]1180
  626. 1310 c[178]c[170]1:s(c)[178]s2:s$(c)[178]s2$:l$(c)[178]l2$:w1(c)[178]w2:p6(r)[178]s2:p2(r)[178]0:m$(c)[178]mb$
  627. 1311 [139]w[178]4[176]w[178]5[167]t2(r)[178]t2(r)[170]s2:[139]v$[178]"mid$"[167]f5(r)[178]f5(r)[170](11[171]c)
  628. 1312 [139]ws[178]2[167]a5(r)[178]a5(r)[170](11[171]c)
  629. 1313 [139]c[178]10[167]1350
  630. 1314 x2[178]0:[137]1180
  631. 1315 c[178]c[170]1:s(c)[178]s3:s$(c)[178]s3$:l$(c)[178]l3$:w1(c)[178]w3:p7(k)[178]s3:p3(k)[178]0:m$(c)[178]mc$
  632. 1316 [139]w[178]4[176]w[178]5[167]t3(k)[178]t3(k)[170]s3:[139]v$[178]"mid$"[167]f6(k)[178]f6(k)[170](11[171]c)
  633. 1317 [139]ws[178]2[167]a6(k)[178]a6(k)[170](11[171]c)
  634. 1318 [139]c[178]10[167]1350
  635. 1319 x3[178]0:[137]1180
  636. 1350 [139]rc$[178]"c"[167]5005
  637. 1351 [141]9998:[153]ws".str$urchgang                            usrusrusrusrusrusrusrusrusrusrusrusrusr"
  638. 1352 [153]"(NULL)pringer/(NULL)ation             (NULL)eite/(NULL)unkte":c[178]0
  639. 1353 [141]9920
  640. 1354 [129]z[178]1[164]10
  641. 1355 [153]z:[153]"on."[200](s$(z),1)"."l$(z)" ("[200](m$(z),3)")
  642. 1356 print"[145]"int(w1(z)):ifz=1andws=2thengosub15000
  643. 1357 print"[145]m /"s(z)
  644. 1358 nextz
  645. 1359 s(10)=0:gosub9996
  646. 1360 ifws=2then1370
  647. 1361 ws=ws+1:goto1260
  648. 1370 rem nachwettnull
  649. 1371 we$="":dn$="":ws=0
  650. 1372 forz=1to10
  651. 1373 dn$(z)=""
  652. 1374 nextz
  653. 1382 forz=1to10
  654. 1383 d2$(z)=""
  655. 1384 nextz
  656. 1392 forz=1to9
  657. 1393 d3$(z)=""
  658. 1394 nextz
  659. 1395 ta=ta+1:ifre$="[202]"thenreturn
  660. 1396 ifta=2then1400
  661. 1397 x1=0:x2=0:x3=0:s1=9999:s2=9999:s3=9999:gosub9998
  662. 1398 ifrc$="c"thengoto154
  663. 1399 print"[209]ualifikation 2.[212]ag:                    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":goto1103
  664. 1400 v$="":rem differenzierung
  665. 1401 ifw=5then1410
  666. 1402 ifw=16then1510
  667. 1403 ifra$="[202]"then200
  668. 1404 ifra$="[215]m"thengoto3010
  669. 1405 ifrc$="c"then150
  670. 1406 ifra$="wm"then1408
  671. 1407 ifrd$="[202]"then200
  672. 1408 t=8:goto150
  673. 1409 t=7:goto150
  674. 1410 iftb=1then1407:rem tourneewertung
  675. 1411 gosub9998:print"[212]ournee - [199]esamtwertung:                [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  676. 1412 gosub2200
  677. 1413 x1=0:x2=0:x3=0:ra$="[202]":rb$="[202]":goto1180
  678. 1510 iftb=1then1407:rem flugwertung
  679. 1511 gosub9998:print"[198]liegen - [199]esamtwertung:                [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  680. 1512 gosub2300
  681. 1513 x1=0:x2=0:x3=0:ra$="[202]":rb$="[202]":goto1180
  682. 2000 rem rangliste
  683. 2001 gosub9998:print"[210]angliste                               [183][183][183][183][183][183][183][183][183]":gosub2100
  684. 2002 x1=0:x2=0:x3=0:ra$="[202]":rd$="[202]":goto1180
  685. 2070 print"[211]pringer/[206]ation                   [208]unkte":ifxa=1thenreturn
  686. 2071 print"[145][145]":gosub9920:c=0:rb$=""
  687. 2072 forz=1to10
  688. 2073 printz:print"[145]. "left$(s$(z),1)"."l$(z)" ("left$(m$(z),3)")
  689. 2075 [153]"on"s(z):[139]z[178]1[167][141]6000
  690. 2076 [130]z
  691. 2077 [141]9996
  692. 2079 ws[178]2:ta[178]1:tb[178]1:[137]1370
  693. 2100 [143] umleitung
  694. 2102 [129]z[178]1[164]10
  695. 2103 dn$(z)[178]"ok":p1[178]a4(z):[141]1113
  696. 2104 [130]z
  697. 2112 [129]v[178]1[164]10
  698. 2113 d2$(v)[178]"ok":p1[178]a5(v):[141]1133
  699. 2114 [130]v
  700. 2122 [129]x[178]1[164]10
  701. 2123 d3$(x)[178]"ok":p1[178]a6(x):[141]1153
  702. 2124 [130]x
  703. 2125 dn$[178]"ok":p1[178]ap:[141]1173
  704. 2126 [142]
  705. 2200 [143] umleitung
  706. 2202 [129]z[178]1[164]10
  707. 2203 dn$(z)[178]"ok":p1[178]t1(z):t1(z)[178]0:[141]1113
  708. 2204 [130]z
  709. 2212 [129]v[178]1[164]10
  710. 2213 d2$(v)[178]"ok":p1[178]t2(v):t2(v)[178]0:[141]1133
  711. 2214 [130]v
  712. 2222 [129]x[178]1[164]10
  713. 2223 d3$(x)[178]"ok":p1[178]t3(x):t3(x)[178]0:[141]1153
  714. 2224 [130]x
  715. 2225 dn$[178]"ok":p1[178]tp:tp[178]0:[141]1173
  716. 2226 [142]
  717. 2300 [143] umleitung
  718. 2302 [129]z[178]1[164]10
  719. 2303 dn$(z)[178]"ok":p1[178]f4(z):f4(z)[178]0:[141]1113
  720. 2304 [130]z
  721. 2312 [129]v[178]1[164]10
  722. 2313 d2$(v)[178]"ok":p1[178]f5(v):f5(v)[178]0:[141]1133
  723. 2314 [130]v
  724. 2322 [129]x[178]1[164]10
  725. 2323 d3$(x)[178]"ok":p1[178]f6(x):f6(x)[178]0:[141]1153
  726. 2324 [130]x
  727. 2325 dn$[178]"ok":p1[178]fp:fp[178]0:[141]1173
  728. 2326 [142]
  729. 3000 [139]w[178]13[167]3010:[143] wm
  730. 3001 [141]9998:[153]"(NULL)(NULL)-(NULL)leinschanze"y[170]al":                  usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  731. 3002 x1[178]0:x2[178]0:x3[178]0:s1[178]9999:s2[178]9999:s3[178]9999:ra$[178]"wm":ta[178]1:ui[178]2:[137]1103
  732. 3010 [141]9998:[153]"(NULL)(NULL)-chr$rossschanze"y[170]al":                  usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  733. 3011 x1[178]0:x2[178]0:x3[178]0:s1[178]9999:s2[178]9999:s3[178]9999:ra$[178]"w(NULL)":ta[178]1:[137]1103
  734. 5000 [143] pseudo-wettkampf
  735. 5001 we$[178]"ok":c[178]0:ws[178]ws[170]1:[137]1260
  736. 5005 c[178]0:s(10)[178]0:[139]ws[178]2[175]t[178]7[167]ta[178]1:[139]ws[178]2[175]t[178]7[167]ui[178]2:[141]9998:[141]9996
  737. 5006 [139]ws[178]2[167]1370
  738. 5007 ws[178]ws[170]1:[137]1260
  739. 6000 [139]w[178]5[167]6003
  740. 6001 [139]w[178]16[167]6004
  741. 6002 [142]
  742. 6003 ot$(al[171]19)[178]s$(z):t8$(al[171]19)[178]l$(z):t9$(al[171]19)[178]m$(z):[142]
  743. 6004 fw$(al[171]19)[178]s$(z):f8$(al[171]19)[178]l$(z):f9$(al[171]19)[178]m$(z):[142]
  744. 7000 p4[178][171]999:[137]1180
  745. 7005 [139]ui[178]2[167]157
  746. 7006 [141]9998:[137]1000
  747. 8032 z[178]1:[141]1104:[142]
  748. 8033 z[178]2:[141]1104:[142]
  749. 8034 z[178]3:[141]1104:[142]
  750. 8035 z[178]4:[141]1104:[142]
  751. 8036 z[178]5:[141]1104:[142]
  752. 8037 z[178]6:[141]1104:[142]
  753. 8052 z[178]7:[141]1104:[142]
  754. 8053 z[178]8:[141]1104:[142]
  755. 8054 z[178]9:[141]1104:[142]
  756. 8055 z[178]10:[141]1104:[142]
  757. 8056 v[178]1:[141]1124:[142]
  758. 8057 v[178]2:[141]1124:[142]
  759. 8072 v[178]3:[141]1124:[142]
  760. 8073 v[178]4:[141]1124:[142]
  761. 8074 v[178]5:[141]1124:[142]
  762. 8075 v[178]6:[141]1124:[142]
  763. 8076 x[178]7:[141]1144:[142]
  764. 8092 v[178]7:[141]1124:[142]
  765. 8093 v[178]8:[141]1124:[142]
  766. 8094 v[178]9:[141]1124:[142]
  767. 8095 v[178]10:[141]1124:[142]
  768. 8096 x[178]1:[141]1144:[142]
  769. 8097 x[178]8:[141]1144:[142]
  770. 8098 x[178]9:[141]1144:[142]
  771. 8112 x[178]2:[141]1144:[142]
  772. 8113 x[178]3:[141]1144:[142]
  773. 8114 x[178]4:[141]1144:[142]
  774. 8115 x[178]5:[141]1144:[142]
  775. 8116 x[178]6:[141]1144:[142]
  776. 9700 [143] nullmachen
  777. 9701 [129]z[178]1[164]10
  778. 9702 we(z)[178]0:h(z)[178]0:p(z)[178]0:p4(z)[178]0
  779. 9703 [130]z
  780. 9711 [129]z[178]1[164]10
  781. 9712 w2(z)[178]0:h2(z)[178]0:p2(z)[178]0:p6(z)[178]0
  782. 9713 [130]z
  783. 9721 [129]z[178]1[164]9
  784. 9722 w3(z)[178]0:h3(z)[178]0:p3(z)[178]0:p7(z)[178]0
  785. 9723 [130]z
  786. 9725 w4[178]0:h4[178]0:p4[178]0:p8[178]0:[139]n[177]100[167]n[178]100
  787. 9726 [139]n[179]0[167]n[178]0
  788. 9728 [142]
  789. 9800 [141]9998
  790. 9801 [153]"peekitte warten ..."
  791. 9802 [142]
  792. 9900 [143] zufallsgenerator
  793. 9910 [153]"(NULL)tatistik:                              usrusrusrusrusrusrusrusrusr":[142]
  794. 9920 [153]"onusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":[142]
  795. 9990 z1[178]ug[170][187](0)[172](og[171]ug):z2[178][181](z1)
  796. 9991 [142]
  797. 9996 [161]a$:[139]a$[178]""[167]9996
  798. 9997 [142]
  799. 9998 [153]"loadprint#              asclyin'  left$igh              "
  800. 9999 [142]
  801. 10000 [143] daten zu beginn
  802. 10001 x[178]1
  803. 10002 e$(x)[178]"(NULL)raining"
  804. 10003 x[178]x[170]1
  805. 10004 [139]x[178]11[167]10010
  806. 10006 [137]10002
  807. 10010 x[178]1
  808. 10011 f$(x)[178]"(NULL)raining"
  809. 10012 x[178]x[170]1
  810. 10013 [139]x[178]2[176]x[178]3[167]10020
  811. 10014 [139]x[178]7[167][142]
  812. 10015 [137]10011
  813. 10020 f$(x)[178]"(NULL)(NULL)"
  814. 10021 x[178]x[170]1
  815. 10022 [137]10013
  816. 10712 rc$[178]"c":[141]9800:[137]1100
  817. 11000 [143] springeranfang
  818. 11001 [129]z[178]1[164]29:[139]z[177]10[167]11004
  819. 11002 a(z)[178]a:b(z)[178]b:f(z)[178]f:l(z)[178]l:n(z)[178]n
  820. 11003 [130]z
  821. 11004 v[178]z[171]10:[139]z[177]20[167]11007
  822. 11005 a2(v)[178]a:b2(v)[178]b:f2(v)[178]f:l2(v)[178]l:n2(v)[178]n
  823. 11006 [130]z
  824. 11007 x[178]z[171]20
  825. 11008 a3(x)[178]a:b3(x)[178]b:f3(x)[178]f:l3(x)[178]l:n3(x)[178]n
  826. 11009 [130]z
  827. 11010 [143] springernamen
  828. 11011 v1$(1)[178]"(NULL)azuyoshi":n1$(1)[178]"ascunaki":m1$(1)[178]"mid$apan"
  829. 11012 v1$(2)[178]"(NULL)akanobu":n1$(2)[178]"(NULL)kabe":m1$(2)[178]"mid$apan"
  830. 11013 v1$(3)[178]"left$iroyah":n1$(3)[178]"(NULL)aitoh":m1$(3)[178]"mid$apan"
  831. 11014 v1$(4)[178]"(NULL)oriaki":n1$(4)[178]"(NULL)asai":m1$(4)[178]"mid$apan"
  832. 11015 v1$(5)[178]"(NULL)asahiro":n1$(5)[178]"left$arada":m1$(5)[178]"mid$apan"
  833. 11016 v1$(6)[178]"(NULL)enji":n1$(6)[178]"(NULL)uda":m1$(6)[178]"mid$apan"
  834. 11017 v1$(7)[178]"str$ieter":n1$(7)[178]"(NULL)homa":m1$(7)[178]"chr$ermany"
  835. 11018 v1$(8)[178]"mid$ens":n1$(8)[178]"(NULL)eissflog":m1$(8)[178]"chr$ermany"
  836. 11019 v1$(9)[178]"lenhristoph":n1$(9)[178]"str$uffner":m1$(9)[178]"chr$ermany"
  837. 11020 v1$(10)[178]"(NULL)artin":n1$(10)[178]"(NULL)chmitt":m1$(10)[178]"chr$ermany"
  838. 11021 v2$(1)[178]"left$ans-mid$oerg":n2$(1)[178]"mid$aekle":m2$(1)[178]"chr$ermany"
  839. 11022 v2$(2)[178]"left$orst":n2$(2)[178]"left$aschmich":m2$(2)[178]"chr$ermany"
  840. 11023 v2$(3)[178]"atnri-(NULL)ekka":n2$(3)[178]"(NULL)ikkola":m2$(3)[178]"ascinland"
  841. 11024 v2$(4)[178]"(NULL)oni":n2$(4)[178]"(NULL)ieminen":m2$(4)[178]"ascinland"
  842. 11025 v2$(5)[178]"(NULL)atti":n2$(5)[178]"(NULL)ykaenen":m2$(5)[178]"ascinland"
  843. 11026 v2$(6)[178]"mid$ani":n2$(6)[178]"(NULL)oininen":m2$(6)[178]"ascinland"
  844. 11027 v2$(7)[178]"(NULL)ylvain":n2$(7)[178]"ascreiholz":m2$(7)[178]"(NULL)uisse"
  845. 11028 v2$(8)[178]"mid$im":n2$(8)[178]"left$olland":m2$(8)[178]"(NULL)(NULL)atn"
  846. 11029 v2$(9)[178]"mid$an":n2$(9)[178]"peekokloev":m2$(9)[178]"(NULL)weden"
  847. 11030 v2$(10)[178]"(NULL)rimosz":n2$(10)[178]"(NULL)eterka":m2$(10)[178]"(NULL)lowenia"
  848. 11031 vn$(1)[178]"atndam":nn$(1)[178]"(NULL)alysz":mm$(1)[178]"(NULL)oland"
  849. 11032 vn$(2)[178]"(NULL)artin":nn$(2)[178]"left$oellwarth":mm$(2)[178]"atnustria"
  850. 11033 vn$(3)[178]"(NULL)einhard":nn$(3)[178]"(NULL)chwarzenberger":mm$(3)[178]"atnustria"
  851. 11034 vn$(4)[178]"atnndreas":nn$(4)[178]"chr$oldberger":mm$(4)[178]"atnustria"
  852. 11035 vn$(5)[178]"valrnst":nn$(5)[178]"(NULL)ettori":mm$(5)[178]"atnustria"
  853. 11036 vn$(6)[178]"atnndreas":nn$(6)[178]"ascelder":mm$(6)[178]"atnustria"
  854. 11037 vn$(7)[178]"mid$anne":nn$(7)[178]"atnhonen":mm$(7)[178]"ascinland"
  855. 11038 vn$(8)[178]"valspen":nn$(8)[178]"peekredesen":mm$(8)[178]"(NULL)orway"
  856. 11039 vn$(9)[178]"(NULL)icolas":nn$(9)[178]"str$esum":mm$(9)[178]"ascrance"
  857. 11040 [142]
  858. 12000 [143] jahr
  859. 12001 al[178]al[170]1:w[178]1:xa[178]1:[141]13000:xa[178]0:[139]ge[178]al[167]21000
  860. 12002 ap[178]0:a[178]a[173]2:b[178]b[173]2:f[178]f[173]2:l[178]l[173]2:a[178][181](a):b[178][181](b):f[178][181](f):l[178][181](l)
  861. 12003 n[178][181](n)
  862. 12004 [129]z[178]1[164]10
  863. 12005 a4(z)[178]0:t1(z)[178]0:f4(z)[178]0
  864. 12006 a(z)[178]a(z)[173]2:a(z)[178][181](a(z))
  865. 12007 b(z)[178]b(z)[173]2:b(z)[178][181](b(z))
  866. 12008 f(z)[178]f(z)[173]2:f(z)[178][181](f(z))
  867. 12009 l(z)[178]l(z)[173]2:l(z)[178][181](l(z))
  868. 12010 n(z)[178]n(z)[173]2:n(z)[178][181](n(z))
  869. 12011 [130]z
  870. 12013 [129]z[178]1[164]10
  871. 12014 a5(z)[178]0
  872. 12015 a2(z)[178]a2(z)[173]2:a2(z)[178][181](a2(z))
  873. 12016 b2(z)[178]b2(z)[173]2:b2(z)[178][181](b2(z))
  874. 12017 f2(z)[178]f2(z)[173]2:f2(z)[178][181](f2(z))
  875. 12018 l2(z)[178]l2(z)[173]2:l2(z)[178][181](l2(z))
  876. 12019 n2(z)[178]n2(z)[173]2:n2(z)[178][181](n2(z))
  877. 12020 [130]z
  878. 12023 [129]z[178]1[164]10
  879. 12024 a6(z)[178]0
  880. 12025 a3(z)[178]a3(z)[173]2:a3(z)[178][181](a3(z))
  881. 12026 b3(z)[178]b3(z)[173]2:b3(z)[178][181](b3(z))
  882. 12027 f3(z)[178]f3(z)[173]2:f3(z)[178][181](f3(z))
  883. 12028 l3(z)[178]l3(z)[173]2:l3(z)[178][181](l3(z))
  884. 12029 n3(z)[178]n3(z)[173]2:n3(z)[178][181](n3(z))
  885. 12030 [130]z
  886. 13000 [141]9998:[153]"mid$ahres-(NULL)angliste                        usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  887. 13001 [141]2100:x1[178]0:x2[178]0:x3[178]0:ra$[178]"mid$":[141]1180
  888. 13003 [141]9920:c[178]0:rb$[178]""
  889. 13004 [129]z[178]1[164]10
  890. 13005 [153]z:[153]"on. "[200](s$(z),1)"."l$(z)" ("[200](m$(z),3)")
  891. 13006 print"[145]"s(z)
  892. 13007 nextz
  893. 13008 gosub9996:re$="[202]":gosub1370
  894. 13009 return
  895. 15000 rem z=1
  896. 15001 ifra$="wm"then15010
  897. 15003 ifra$="w[205]"then15030
  898. 15004 return
  899. 15010 wm$(al-19)=s$(1):w8$(al-19)=l$(1):w9$(al-19)=m$(1)
  900. 15011 return
  901. 15030 mw$(al-19)=s$(1):m8$(al-19)=l$(1):m9$(al-19)=m$(1)
  902. 15031 return
  903. 20000 gosub9800:rem computerspringer
  904. 20001 forz=1to29:ifz>10then20101
  905. 20002 ug=1:og=5:gosub9990
  906. 20003 a1=z2
  907. 20004 ug=1:og=7:gosub9990
  908. 20005 ifz2=1then20014
  909. 20006 ifz2=2then20014
  910. 20007 ifz2=3then20012
  911. 20008 ifz2=4then20012
  912. 20009 ifz2=5then20012
  913. 20010 ifz2=6then20012
  914. 20011 ifz2=7then20014
  915. 20012 a(z)=a(z)+a1:ifa(z)>100thena(z)=100
  916. 20013 goto20022
  917. 20014 a(z)=a(z)-a1
  918. 20015 ifa(z)<0thena(z)=0
  919. 20022 ug=1:og=5:gosub9990
  920. 20023 b1=z2
  921. 20024 ug=1:og=7:gosub9990
  922. 20025 ifz2=1then20034
  923. 20026 ifz2=2then20034
  924. 20027 ifz2=3then20032
  925. 20028 ifz2=4then20032
  926. 20029 ifz2=5then20032
  927. 20030 ifz2=6then20032
  928. 20031 ifz2=7then20034
  929. 20032 b(z)=b(z)+b1:ifb(z)>100thenb(z)=100
  930. 20033 goto20042
  931. 20034 b(z)=b(z)-b1
  932. 20035 ifb(z)<0thenb(z)=0
  933. 20042 ug=1:og=5:gosub9990
  934. 20043 f1=z2
  935. 20044 ug=1:og=7:gosub9990
  936. 20045 ifz2=1then20054
  937. 20046 ifz2=2then20054
  938. 20047 ifz2=3then20052
  939. 20048 ifz2=4then20052
  940. 20049 ifz2=5then20052
  941. 20050 ifz2=6then20052
  942. 20051 ifz2=7then20054
  943. 20052 f(z)=f(z)+f1:iff(z)>100thenf(z)=100
  944. 20053 goto20062
  945. 20054 f(z)=f(z)-f1
  946. 20055 iff(z)<0thenf(z)=0
  947. 20062 ug=1:og=5:gosub9990
  948. 20063 l1=z2
  949. 20064 ug=1:og=7:gosub9990
  950. 20065 ifz2=1then20074
  951. 20066 ifz2=2then20074
  952. 20067 ifz2=3then20072
  953. 20068 ifz2=4then20072
  954. 20069 ifz2=5then20072
  955. 20070 ifz2=6then20072
  956. 20071 ifz2=7then20074
  957. 20072 l(z)=l(z)+l1:ifl(z)>100thenl(z)=100
  958. 20073 goto20082
  959. 20074 l(z)=l(z)-l1
  960. 20075 ifl(z)<0thenl(z)=0
  961. 20082 ug=1:og=5:gosub9990
  962. 20083 n1=z2
  963. 20084 ug=1:og=7:gosub9990
  964. 20085 ifz2=1then20094
  965. 20086 ifz2=2then20094
  966. 20087 ifz2=3then20092
  967. 20088 ifz2=4then20092
  968. 20089 ifz2=5then20092
  969. 20090 ifz2=6then20094
  970. 20091 ifz2=7then20094
  971. 20092 n(z)=n(z)+n1:ifn(z)>100thenn(z)=100
  972. 20093 goto20096
  973. 20094 n(z)=n(z)-n1
  974. 20095 ifn(z)<0thenn(z)=0
  975. 20096 nextz
  976. 20101 v=z-10:ifz>20then20201
  977. 20102 ug=1:og=5:gosub9990
  978. 20103 a1=z2
  979. 20104 ug=1:og=7:gosub9990
  980. 20105 ifz2=1then20114
  981. 20106 ifz2=2then20114
  982. 20107 ifz2=3then20112
  983. 20108 ifz2=4then20112
  984. 20109 ifz2=5then20112
  985. 20110 ifz2=6then20112
  986. 20111 ifz2=7then20114
  987. 20112 a2(v)=a2(v)+a1:ifa2(v)>100thena2(v)=100
  988. 20113 goto20122
  989. 20114 a2(v)=a2(v)-a1
  990. 20115 ifa2(v)<0thena2(v)=0
  991. 20122 ug=1:og=5:gosub9990
  992. 20123 b1=z2
  993. 20124 ug=1:og=7:gosub9990
  994. 20125 ifz2=1then20134
  995. 20126 ifz2=2then20134
  996. 20127 ifz2=3then20132
  997. 20128 ifz2=4then20132
  998. 20129 ifz2=5then20132
  999. 20130 ifz2=6then20132
  1000. 20131 ifz2=7then20134
  1001. 20132 b2(v)=b2(v)+b1:ifb2(v)>100thenb2(v)=100
  1002. 20133 goto20142
  1003. 20134 b2(v)=b2(v)-b1
  1004. 20135 ifb2(v)<0thenb2(v)=0
  1005. 20142 ug=1:og=5:gosub9990
  1006. 20143 f1=z2
  1007. 20144 ug=1:og=7:gosub9990
  1008. 20145 ifz2=1then20154
  1009. 20146 ifz2=2then20154
  1010. 20147 ifz2=3then20152
  1011. 20148 ifz2=4then20152
  1012. 20149 ifz2=5then20152
  1013. 20150 ifz2=6then20152
  1014. 20151 ifz2=7then20154
  1015. 20152 f2(v)=f2(v)+f1:iff2(v)>100thenf2(v)=100
  1016. 20153 goto20162
  1017. 20154 f2(v)=f2(v)-f1
  1018. 20155 iff2(v)<0thenf2(v)=0
  1019. 20162 ug=1:og=5:gosub9990
  1020. 20163 l1=z2
  1021. 20164 ug=1:og=7:gosub9990
  1022. 20165 ifz2=1then20174
  1023. 20166 ifz2=2then20174
  1024. 20167 ifz2=3then20172
  1025. 20168 ifz2=4then20172
  1026. 20169 ifz2=5then20172
  1027. 20170 ifz2=6then20172
  1028. 20171 ifz2=7then20174
  1029. 20172 l2(v)=l2(v)+l1:ifl2(v)>100thenl2(v)=100
  1030. 20173 goto20182
  1031. 20174 l2(v)=l2(v)-l1
  1032. 20175 ifl2(v)<0thenl2(v)=0
  1033. 20182 ug=1:og=5:gosub9990
  1034. 20183 n1=z2
  1035. 20184 ug=1:og=7:gosub9990
  1036. 20185 ifz2=1then20194
  1037. 20186 ifz2=2then20194
  1038. 20187 ifz2=3then20192
  1039. 20188 ifz2=4then20192
  1040. 20189 ifz2=5then20192
  1041. 20190 ifz2=6then20194
  1042. 20191 ifz2=7then20194
  1043. 20192 n2(v)=n2(v)+n1:ifn2(v)>100thenn2(v)=100
  1044. 20193 goto20196
  1045. 20194 n2(v)=n2(v)-n1
  1046. 20195 ifn2(v)<0thenn2(v)=0
  1047. 20196 nextz
  1048. 20201 x=z-20
  1049. 20202 ug=1:og=5:gosub9990
  1050. 20203 a1=z2
  1051. 20204 ug=1:og=7:gosub9990
  1052. 20205 ifz2=1then20214
  1053. 20206 ifz2=2then20214
  1054. 20207 ifz2=3then20212
  1055. 20208 ifz2=4then20212
  1056. 20209 ifz2=5then20212
  1057. 20210 ifz2=6then20212
  1058. 20211 ifz2=7then20214
  1059. 20212 a3(x)=a3(x)+a1:ifa3(x)>100thena3(x)=100
  1060. 20213 goto20222
  1061. 20214 a3(x)=a3(x)-a1
  1062. 20215 ifa3(x)<0thena3(x)=0
  1063. 20222 ug=1:og=5:gosub9990
  1064. 20223 b1=z2
  1065. 20224 ug=1:og=7:gosub9990
  1066. 20225 ifz2=1then20234
  1067. 20226 ifz2=2then20234
  1068. 20227 ifz2=3then20232
  1069. 20228 ifz2=4then20232
  1070. 20229 ifz2=5then20232
  1071. 20230 ifz2=6then20232
  1072. 20231 ifz2=7then20234
  1073. 20232 b3(x)=b3(x)+b1:ifb3(x)>100thenb3(x)=100
  1074. 20233 goto20242
  1075. 20234 b3(x)=b3(x)-b1
  1076. 20235 ifb3(x)<0thenb3(x)=0
  1077. 20242 ug=1:og=5:gosub9990
  1078. 20243 f1=z2
  1079. 20244 ug=1:og=7:gosub9990
  1080. 20245 ifz2=1then20254
  1081. 20246 ifz2=2then20254
  1082. 20247 ifz2=3then20252
  1083. 20248 ifz2=4then20252
  1084. 20249 ifz2=5then20252
  1085. 20250 ifz2=6then20252
  1086. 20251 ifz2=7then20254
  1087. 20252 f3(x)=f3(x)+f1:iff3(x)>100thenf3(x)=100
  1088. 20253 goto20262
  1089. 20254 f3(x)=f3(x)-f1
  1090. 20255 iff3(x)<0thenf3(x)=0
  1091. 20262 ug=1:og=5:gosub9990
  1092. 20263 l1=z2
  1093. 20264 ug=1:og=7:gosub9990
  1094. 20265 ifz2=1then20274
  1095. 20266 ifz2=2then20274
  1096. 20267 ifz2=3then20272
  1097. 20268 ifz2=4then20272
  1098. 20269 ifz2=5then20272
  1099. 20270 ifz2=6then20272
  1100. 20271 ifz2=7then20274
  1101. 20272 l3(x)=l3(x)+l1:ifl3(x)>100thenl3(x)=100
  1102. 20273 goto20282
  1103. 20274 l3(x)=l3(x)-l1
  1104. 20275 ifl3(x)<0thenl3(x)=0
  1105. 20282 ug=1:og=5:gosub9990
  1106. 20283 n1=z2
  1107. 20284 ug=1:og=7:gosub9990
  1108. 20285 ifz2=1then20294
  1109. 20286 ifz2=2then20294
  1110. 20287 ifz2=3then20292
  1111. 20288 ifz2=4then20292
  1112. 20289 ifz2=5then20292
  1113. 20290 ifz2=6then20294
  1114. 20291 ifz2=7then20294
  1115. 20292 n3(x)=n3(x)+n1:ifn3(x)>100thenn3(x)=100
  1116. 20293 goto20296
  1117. 20294 n3(x)=n3(x)-n1
  1118. 20295 ifn3(x)<0thenn3(x)=0
  1119. 20296 nextz
  1120. 20297 return
  1121. 21000 rem ende
  1122. 21001 gosub9998:print"[196]as [203]arriereende ist erreicht ..."
  1123. 21002 gosub9996
  1124. 21003 end
  1125.